| Filename | (eval 390)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3] |
| Statements | Executed 25 statements in 188µs |
| Eval Invoked At | /Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3 |
| Sibling evals | 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113 |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 1 | 1 | 1 | 24µs | 96µs | JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect |
| 1 | 1 | 1 | 7µs | 17µs | JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.253 |
| 1 | 1 | 1 | 4µs | 12µs | Method::Generate::Accessor::_Generated::BEGIN@39.255 |
| 1 | 1 | 1 | 3µs | 3µs | Method::Generate::Accessor::_Generated::BEGIN@12.254 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | { | ||||
| 2 | 2 | 2µs | my $isa_check_for_json_5fschema_5fdialect = ${$_[1]->{"\$isa_check_for_json_5fschema_5fdialect"}}; | ||
| 3 | 1 | 0s | my $_QUOTED = ${$_[1]->{"\$_QUOTED"}}; | ||
| 4 | 1 | 0s | my $coerce_for_json_5fschema_5fdialect = ${$_[1]->{"\$coerce_for_json_5fschema_5fdialect"}}; | ||
| 5 | 1 | 1µs | my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}}; | ||
| 6 | package JSON::Schema::Modern::Document::OpenAPI; | ||||
| 7 | 2 | 32µs | 2 | 27µs | # spent 17µs (7+10) within JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.253 which was called:
# once (7µs+10µs) by Sub::Quote::_clean_eval at line 7 # spent 17µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::BEGIN@7.253
# spent 10µs making 1 call to warnings::unimport |
| 8 | # spent 96µs (24+72) within JSON::Schema::Modern::Document::OpenAPI::_set_json_schema_dialect which was called:
# once (24µs+72µs) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 127 of JSON/Schema/Modern/Document/OpenAPI.pm | ||||
| 9 | ($_QUOTED,$_UNQUOTED) if 0; | ||||
| 10 | # BEGIN quote_sub PRELUDE | ||||
| 11 | package Method::Generate::Accessor::_Generated; | ||||
| 12 | # spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@12.254 which was called:
# once (3µs+0s) by Sub::Quote::_clean_eval at line 17 | ||||
| 13 | 1 | 0s | $^H = 1762; | ||
| 14 | 1 | 0s | ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU"; | ||
| 15 | 1 | 5µs | %^H = ( | ||
| 16 | ); | ||||
| 17 | 1 | 53µs | 1 | 3µs | } # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@12.254 |
| 18 | # END quote_sub PRELUDE | ||||
| 19 | 2 | 4µs | scalar do { my $value = do { | ||
| 20 | 1 | 3µs | local $Method::Generate::Accessor::CurrentAttribute = { | ||
| 21 | init_arg => undef(), | ||||
| 22 | name => "json_schema_dialect", | ||||
| 23 | step => "coercion", | ||||
| 24 | }; | ||||
| 25 | 1 | 2µs | (my $_return), | ||
| 26 | (my $_error), (my $_old_error = $@); | ||||
| 27 | 1 | 0s | (eval { | ||
| 28 | 1 | 3µs | 1 | 70µs | ($@ = $_old_error), # spent 70µs making 1 call to JSON::Schema::Modern::Document::OpenAPI::__ANON__[JSON/Schema/Modern/Document/OpenAPI.pm:56] |
| 29 | ($_return = | ||||
| 30 | $coerce_for_json_5fschema_5fdialect->($_[1])), | ||||
| 31 | 1 | ||||
| 32 | } or | ||||
| 33 | $_error = CORE::ref $@ ? $@ : "coercion for \"json_schema_dialect\" failed: ".$@); | ||||
| 34 | 1 | 0s | ($@ = $_old_error), | ||
| 35 | (defined $_error and CORE::die $_error); | ||||
| 36 | 1 | 1µs | $_return; | ||
| 37 | } | ||||
| 38 | ; | ||||
| 39 | 4 | 78µs | 4 | 22µs | # spent 12µs (4+8) within Method::Generate::Accessor::_Generated::BEGIN@39.255 which was called:
# once (4µs+8µs) by Sub::Quote::_clean_eval at line 39 # spent 12µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@39.255
# spent 8µs making 1 call to warnings::unimport
# spent 1µs making 1 call to Scalar::Util::blessed
# spent 1µs making 1 call to UNIVERSAL::isa |
| 40 | ($_[0]->{"json_schema_dialect"} = $value), | ||||
| 41 | 1 | 1µs | ($_[0]->{"json_schema_dialect"}), | ||
| 42 | } } | ||||
| 43 | 1 | 0s | $$_UNQUOTED = \&_set_json_schema_dialect; | ||
| 44 | } | ||||
| 45 | 1 | 3µs | 1; | ||
| 46 | |||||
| 47 | ; |